home *** CD-ROM | disk | FTP | other *** search
/ Your Choice 1 / your choice.zip / your choice / OS2 / ALARM / ACINST.CMD next >
OS/2 REXX Batch file  |  1994-04-05  |  3KB  |  83 lines
  1. /* */
  2. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. call SysLoadFuncs
  4. call SysCls
  5. pos = SysCurPos(5,0)
  6. say 'Enter the target drive and directory then press <ENTER>'
  7. PULL targdrv
  8. say ' '
  9. say 'Enter the source drive and directory then press <ENTER>'
  10. PULL srcepath
  11. say ' '
  12. say 'Installing Alarm Clock in 'targdrv
  13. call STARTINSTALL
  14. call INSTALRMCLK
  15. say ' '
  16. say '┌───────────────────────────────────────────┐'
  17. say '│                                           │'
  18. say '│       Alarm Clock INSTALLED               │'
  19. say '│                                           │'
  20. say '│ Be sure that the selected directory is in │'
  21. say '│ your LIBPATH= statement or .\ is in the   │'
  22. say '│ LIBPATH.  See your CONFIG.SYS file.       │'
  23. say '│                                           │'
  24. say '└───────────────────────────────────────────┘'
  25. exit
  26.  
  27.  
  28.  
  29.  
  30.  
  31. STARTINSTALL:
  32.    call SysFileTree srcepath, 'file', 'D'
  33.    if file.0 = 0 then do
  34.        say 'No files found in 'srcepath
  35.        exit
  36.        end
  37.  
  38.    call SysFileTree targdrv, 'file', 'D'
  39.    if file.0 = 0 then do
  40.       call CREATEPATH
  41.       end  /* Do */
  42. return /* STARTINSTALL */
  43.  
  44.  
  45. INSTALRMCLK:
  46.    "@echo off"
  47.    copy srcepath'\*.* 'targdrv
  48.    settings='OBJECTID=<ALARMCLK_FOLDER>;ICONFILE='srcepath'\folder.ico'
  49.    call SysCreateObject 'WPFolder', 'Alarm Clock', '<WP_DESKTOP>', settings, 'REPLACE'
  50.    settings='PROGTYPE=PM;EXENAME='targdrv'\ALRMCLK2.EXE;OBJECTID=<ALRMCLK2>;STARTUPDIR='targdrv
  51.    call SysCreateObject 'WPProgram', 'Alarm Clock', '<ALARMCLK_FOLDER>', settings, 'REPLACE'
  52.    settings='PROGTYPE=PM;EXENAME=VIEW.EXE;OBJECTID=<ACHELP>;STARTUPDIR='targdrv';PARAMETERS=ALRMCLK2.INF'
  53.    call SysCreateObject 'WPProgram', 'Alarm Clock Help', '<ALARMCLK_FOLDER>', settings, 'REPLACE'
  54.    echo on
  55. return
  56.  
  57. CREATEPATH:
  58.  
  59.    do I = 1 to 5 by 1
  60.       say ' '
  61.       say 'Press Y to create the directory 'targdrv
  62.       say 'Press N to end the install'
  63.       rc = SysGetKey()
  64.       say ' '
  65.       say ' '
  66.       select
  67.           when TRANSLATE(rc) = 'Y' then do
  68.               rc = SysMkDir(targdrv)
  69.               if rc \= 0 then do
  70.                   say 'Error Creating 'targdrv
  71.                   say 'Install Ended unsuccessfully'
  72.                   beep(454, 100)
  73.                   exit
  74.                   end
  75.               leave
  76.           end  /* Do */
  77.           when TRANSLATE(rc) = 'N' then leave
  78.           otherwise beep(454, 100)
  79.       end  /* select */
  80.    end /* do */
  81.  
  82. return /* CREATEPATH */
  83.